home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form frmTask
- Appearance = 0 'Flat
- BackColor = &H00C0C0C0&
- BorderStyle = 3 'Fixed Dialog
- Caption = "Actor"
- ClientHeight = 1005
- ClientLeft = 2115
- ClientTop = 2385
- ClientWidth = 4605
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H80000008&
- Height = 1410
- Left = 2055
- LinkTopic = "Form1"
- ScaleHeight = 1005
- ScaleWidth = 4605
- Top = 2040
- Width = 4725
- Begin VB.TextBox Text2
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 285
- Left = 1140
- TabIndex = 1
- Top = 570
- Width = 1995
- End
- Begin VB.CommandButton Command2
- Appearance = 0 'Flat
- BackColor = &H80000005&
- Caption = "&Cancel"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 405
- Left = 3750
- TabIndex = 3
- Top = 540
- Width = 800
- End
- Begin VB.CommandButton Command1
- Appearance = 0 'Flat
- BackColor = &H80000005&
- Caption = "&Ok"
- Default = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 405
- Left = 3750
- TabIndex = 2
- Top = 90
- Width = 800
- End
- Begin VB.TextBox Text1
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 315
- Left = 1140
- TabIndex = 0
- Top = 180
- Width = 1995
- End
- Begin VB.Label Label2
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Role name:"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H80000008&
- Height = 195
- Left = 120
- TabIndex = 5
- Top = 600
- Width = 810
- End
- Begin VB.Label Label1
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Actor name:"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H80000008&
- Height = 195
- Left = 120
- TabIndex = 4
- Top = 240
- Width = 855
- End
- Attribute VB_Name = "frmTask"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Dim NodeText$
- Public Function Display(s As String) As String
- NodeText = s
- Me.Show 1
- Display = NodeText
- End Function
- Private Sub Command1_Click()
- NodeText = Text1 + Chr$(13) + Chr$(10) + Text2
- Unload Me
- End Sub
- Private Sub Command2_Click()
- NodeText = "-1"
- Unload Me
- End Sub
- Private Sub Form_Load()
- Dim s$, pos%
-
- s = NodeText
- pos = InStr(s, Chr$(13))
- If pos = 0 Then
- Text1 = s
- Text2 = ""
- Else
- Text1 = Left$(s, pos - 1)
- Text2 = Mid$(s, pos + 2)
- End If
- End Sub
-